1 GOSUB60100
2 MA$="HISTORIC MAZES"
4 GOSUB 442:GOTO 296
6 POKE 214,22:PRINT
8 PRINT WI$ SPC(3)"USE CURSORS TO MOVE"SS$ S$ S$"Q TO QUIT"
10 PRINT HO$ BR$ W$ W% TAB(26) T$
12 GOSUB 102:POKE V+31,0:POKE V+30,0
14 PRINTHO$BR$TAB(10)W%WI$TAB(31)SS$SS$HO$TAB(31)FNTM(X)":"FNTS(X)
16 GET K$:IF K$="" THEN 16
18 IF K$="Q" THEN 294
20 IF PEEK(197)<>2 AND PEEK(197)<>7 THEN 16
22 IF K$=U$ THEN U%=U%-4
24 IF K$=D$ THEN U%=U%+4
26 IF K$=L$ THEN L%=L%-4:IF L%=<0 THEN POKE V+16,PEEK(V+16)AND254:L%=255
28 IF K$=R$ THEN L%=L%+4:IF L%=>256 THEN POKE V+16,PEEK(V+16)OR1:L%=4
30 POKE V,L%:POKE V+1,U%
32 ON K GOTO 34,38,42,46,50
34 IF L%>145 AND L%<156 AND U%>158 AND U%<168 THEN 272
36 GOTO 54
38 IF L%>142 AND L%<148 AND U%>166 AND U%<172 THEN 272
40 GOTO 54
42 IF L%>126 AND L%<132 AND U%>150 AND U%<156 THEN 272
44 GOTO 54
46 IF L%>154 AND L%<164 AND U%>142 AND U%<152 THEN 272
48 GOTO 54
50 IF L%>138 AND L%<158 AND U%>86 AND U%<96 THEN 272
52 GOTO 68
54 IF PEEK(V+31)AND1=1 THEN GOSUB 108:GOSUB 58
56 POKE V+31,0:POKE V+30,0:GOTO 14
58 IF K$=U$ THEN U%=U%+4
60 IF K$=D$ THEN U%=U%-4
62 IF K$=L$ THEN L%=L%+4:IF L%=>256 THEN POKE V+16,PEEK(V+16)OR1:L%=4
64 IFK$=R$ THEN L%=L%-4:IF L%=<0 THEN POKEV+16,PEEK(V+16)AND254:L%=255
66 POKE V,L%:POKE V+1,U%:W%=W%+1:RETURN
68 IF MK=1 THEN 54
70 IF RR=1 THEN POKE 214,10:PRINT:POKE 211,28:PRINT SS$ SS$:RR=0
72 Z%=1+W%+RND(1)*15:IF Z%<15 THEN 80
74 L=63+8*INT(RND(1)*16)
76 R=8*INT(RND(1)*13):U=107+R:IF W%>19 THEN U=195:IF W%>30 THEN L=87
78 POKE V+2,L:POKE V+3,U
80 IF PEEK(V+30)<>255 THEN 54
82 ZZ%=W%+RND(0)*10:POKE 198,0:IF ZZ%<10 THEN 96
84 PRINT CL$"THE MINOTAUR GOT YOU":KI=1:GOSUB 108:GOSUB 108
86 POKE V+21,0:POKE V+21,2
88 POKE 214,22:PRINT:PRINT WI$ RT$"FOR MENU AND/OR RESULTS"S$
90 GET X$:IF X$="" THEN 90
92 IF ASC(X$)<>13 THEN GOSUB 102:GOTO 90
94 GOTO 294
96 GOSUB 102:MK=1:KI=0:POKE V+21,0:POKE V+21,1
98 PRINT HO$ WI$"YOU KILLED THE MINOTAUR - CONTINUE!"SS$
100 GOTO 280
102 FOR T=0 TO 24:POKE M+T,0:NEXT:POKE M+24,15
104 POKE M+1,110:POKE M+5,9:POKE M+6,9:POKE M+4,17:POKE M+4,16
106 FOR T=1 TO 500:NEXT:POKE M+24,0:RETURN
108 POKE V+32,9:POKE M+0,240:POKE M+1,33:POKE M+5,8:POKE M+22,104
110 POKE M+23,1:POKE M+24,79:POKE M+4,129:FOR T=1 TO 70:NEXT
112 POKE M+4,128:POKE M+24,0:POKE V+32,13:IF K=5 THEN POKE V+32,0
114 RETURN
116 POKE Z+J+LI*40,AA:RETURN
118 FOR J=H1 TO H2:POKE Z+J+LI*40,AA:NEXT J:RETURN
120 FOR LI=L1 TO L2:POKE Z+J+LI*40,AA:NEXT LI:RETURN
122 READ C:IF C=0 THEN RETURN
124 READ A$:A=VAL(A$)
126 IF A$="H" THEN A=111
128 IF A$="V" THEN A=101
130 IF A$="L" THEN A=76
132 IF A$="S" THEN A=32
134 POKE Z+C+LI*40,A:GOTO 122
136 FOR I=3 TO I1:POKE ZZ+Z1+I,160:POKE ZZ+880+I,160:NEXT
138 FOR I=Z2 TO 840 STEP40:POKE ZZ+3+I,160:POKE ZZ+I1+I,160:NEXT:RETURN
140 FOR I=3 TO I1: POKE ZZ+Z1+I,160:POKE V+2048+Z1+I,11
142 POKE ZZ+880+I,160:POKE V+2928+I,11:NEXT
144 FOR I=Z2 TO 840 STEP 40:POKE ZZ+3+I,160:POKE V+2051+I,11
146 POKE ZZ+I1+I,160:POKE V+2048+I1+I,11:NEXT:RETURN
148 I1=32:I2=29:Z1=240:Z2=240:GOSUB 136
150 FOR LI=6 TO 17:FOR J=1 TO 7
152 POKE Z+J+LI*40,101:POKE Z+J+16+LI*40,101:NEXT:NEXT
154 AA=111:H1=1:H2=22:FOR LI=5 TO 9:GOSUB 118
156 H1=H1+1:H2=H2-1:NEXT
158 H1=6:H2=18:FOR LI= 13 TO 17:GOSUB 118
160 H1=H1-1:H2=H2+1:NEXT
162 AA=32:H1=9:H2=11:FOR LI=14 TO 15:GOSUB 118:NEXT
164 FOR LI=6 TO 17:GOSUB 122:NEXT
166 POKE V+2185+11*40,1:RETURN
168 I1=34:I2=30:Z1=120:Z2=160:GOSUB 136
170 AA=111:H1=1:H2=23:FOR LI=1 TO 4:GOSUB 118:NEXT LI
172 H1=2:H2=23:FOR LI=14 TO 17:GOSUB 118:NEXT LI
174 AA=101:L1=2:L2=17:J=1:GOSUB 120:J=24:GOSUB 120
176 L1=5:L2=13:FOR J=2 TO 23:GOSUB 120:NEXT J
178 AA=111:LI=9:H1=3:H2=16:GOSUB 118
180 LI=5:FOR J=10 TO 13:GOSUB 116:NEXT J
182 FOR B=1 TO 146:READ B$:NEXT
184 FOR LI=2 TO 17:GOSUB 122:NEXT
186 POKE V+2184+12*40,1:RETURN
188 I1=26:I2=26:Z1=120:Z2=160:GOSUB 136
190 AA=101:H1=1:H2=17:FOR LI=2 TO 17:GOSUB 118:NEXT
192 AA=111:H1=1:H2=16:FOR LI=1 TO 8:GOSUB 118
194 H1=H1+1:H2=H2-1:NEXT
196 H1=8:H2=9:FOR LI=10 TO 17:GOSUB 118
198 H1=H1-1:H2=H2+1:NEXT
200 J=1:FOR LI=17 TO 11 STEP-1
202 POKE Z+J+LI*40,76:J=J+1:NEXT
204 J=9:FOR LI=9 TO 2 STEP-1
206 POKE Z+J+LI*40,32:J=J+1:NEXT
208 FOR B=1 TO 480:READ B$:NEXT
210 FOR LI=4 TO 17:GOSUB 122:NEXT
212 POKE V+2182+10*40,1:RETURN
214 I1=34:I2=30:Z1=120:Z2=160:GOSUB 136
216 AA=101:H1=1:H2=24:FOR LI=2 TO 17:GOSUB 118:NEXT LI
218 AA=111:LI=1:FOR J=1 TO 23:GOSUB 116:NEXT
220 LI=2:FOR J=4 TO 22:GOSUB 116:NEXT
222 LI=3:FOR J=8 TO 21:GOSUB 116:NEXT
224 LI=4:FOR J=10 TO 20:GOSUB 116:NEXT
226 LI=12:FOR J=7 TO 18:GOSUB 116:NEXT
228 LI=13:FOR J=7 TO 18:GOSUB 116:NEXT
230 LI=14:FOR J=6 TO 19:GOSUB 116:NEXT
232 LI=15:FOR J=5 TO 20:GOSUB 116:NEXT
234 LI=16:FOR J=6 TO 22:GOSUB 116:NEXT
236 LI=17:FOR J=4 TO 23:GOSUB 116:NEXT
238 LI=5:FOR J=14 TO 18:GOSUB 116:NEXT
240 AA=32:H1=11:H2=14:FOR LI=8 TO 10:GOSUB 118:NEXT LI
242 FOR B=1 TO 574:READ B$:NEXT
244 FOR LI=2 TO 17:GOSUB 122:NEXT
246 POKE V+2186+9*40,1:RETURN
248 AA=101:H1=0:H2=17:FOR LI=3 TO 17:GOSUB 118:NEXT
250 AA=111:H1=0:H2=16:FOR LI=2 TO 8:GOSUB 118
252 H1=H1+1:H2=H2-1:NEXT
254 H1=7:H2=9:FOR LI=10 TO 17:GOSUB 118
256 H1=H1-1:H2=H2+1:NEXT
258 AA=101:J=9:FOR LI=3 TO 10:GOSUB 116:NEXT
260 AA=32:LI=2:FOR J=9 TO 17:GOSUB 116:NEXT
262 PRINT HO$ U$ "WAIT 5" TAB(30) SS$ SS$
264 J=0:FOR LI=17 TO 10 STEP-1
266 POKE Z+J+LI*40,76:J=J+1:NEXT
268 FOR B=1 TO 766:READ B$:NEXT:IF B$<>"0" THEN PRINT"DATA ERROR":STOP
270 FOR LI=3 TO 10:GOSUB 122:NEXT:RETURN
272 GOSUB 102:POKE V+32,10:S(K)=1
274 PRINT HO$"SUCCESS"SS$:POKE 198,0:IF K=5 THEN 88
276 L%=L%+4:U%=U%-4:IF K=1 OR K=4 THEN L%=L%+8:U%=U%+12
278 POKE V,L%:POKE V+1,U%:POKE V+31,0
280 GOSUB 102:POKE 214,22:PRINT
282 PRINT SPC(3) RT$"AND FIND YOUR WAY OUT"
284 GET X$:IF X$="" THEN 284
286 IF X$<>CHR$(13) THEN GOSUB 102:GOTO 284
288 PRINT HO$;:FOR X=1 TO 38:PRINT S$;:NEXT:PRINT
290 IF K<>5 THEN POKE V+32,13
292 GOTO 6
294 W(K)=W%:MM(K)=FNTM(X):MS(K)=FNTS(X):W%=0
296 RESTORE:POKE V+32,.:POKE V+33,.
298 PRINT CL$ BL$ SPC(12) MA$
300 PRINT D$ SPC(6)"MENU" D$
302 POKE V+21,0:IF PEEK(V+16)<>0 THEN POKE V+16,PEEK(V+16)AND254
304 PRINT"       [158]1[154]"S$ M$(1)", ENGLAND"
306 PRINT"       [158]2[154]"S$ M$(2)
308 PRINT"       [158]3[154]"S$ M$(3)", FRANCE"
310 PRINT"       [158]4[154]"S$ M$(4)", ENGLAND"
312 PRINT"       [158]5[154]"S$ M$(5)", CRETE"
314 PRINT"       [158]6 RESULTS"
316 PRINT"       [158]7 [154]END"
318 PRINT SPC(10)"SELECT A NUMBER":GOSUB 102
320 GET KK$:IF KK$="" THEN 320
322 K=VAL(KK$):IF K=0 OR K>7 THEN GOSUB 102:GOTO 320
324 IF K=5 THEN 372
326 IF K=6 THEN 352
328 IF K=7 THEN 60000
330 POKE V+33,5:POKE V+32,13:PRINT CO$
332 ON K GOSUB 336,340,344,348:GOSUB 414
334 S(K)=0:TI$="000000":GOTO 6
336 PRINT SPC(13) M$(1)
338 L%=167:U%=219:GOSUB 148:RETURN
340 PRINT SPC(11) M$(2)
342 L%=55:U%=147:GOSUB 168:RETURN
344 PRINT SPC(10) M$(3)
346 L%=203:U%=147:GOSUB 188:RETURN
348 PRINT SPC(13) M$(4)
350 L%=255:U%=155:GOSUB 214:RETURN
352 POKE V+32,13:PRINT CL$ SPC(15) WI$"RESULTS"D$
354 PRINT TAB(21) T$ TAB(29) BA$ W$:PRINT WI$ TAB(20)"MIN SEC"D$
356 FOR J=1 TO 5:PRINT BL$ M$(J);
358 IF S(J)=1 THEN PRINT WI$ CHR$(115) BL$;
360 IF MS(J)<>0 THEN PRINT TAB(20) WI$ MM(J) MS(J) TAB(33) BA$ W(J);
362 PRINT:NEXT:IF KI=0 THEN 366
364 PRINT BA$ U$"MINOTAUR GOT YOU"D$ D$
366 PRINT TAB(5) BL$ D$ RT$"FOR MENU":GOSUB 102
368 GET KK$:IF KK$="" THEN 368
370 GOTO 296
372 PRINT CL$:KI=0:MK=0:PRINT SPC(10) M$(5)
374 PRINT D$"YOU HAVE TWO CHOICES:"D$
376 PRINT WI$"E"BL$ S$"EASY-BIRD'S EYE VIEW"D$
378 PRINT BA$"R"BL$ S$"REALISTIC-MAZE IS DARK"D$
380 PRINT SPC(5)"SELECT"S$ WI$"E [154]OR R":GOSUB 102
382 GET Y$:IF Y$="" THEN 382
384 IF Y$<>"E" AND Y$<>"R" THEN 382
386 POKE V+32,0:POKE V+33,0
388 IF Y$="E" THEN PRINT GR$
390 IF Y$="R" THEN PRINT BA$
392 PRINT CL$ WI$:IF Y$="R" THEN PRINT TAB(32) U$"WAIT 10"
394 I1=26:I2=26:Z1=120:Z2=160
396 IF Y$="E" THEN GOSUB 136
398 IF Y$="R" THEN GOSUB 140
400 PRINT SPC(3)"KNOSSOS-CRETE [FRAGMENT]"
402 GOSUB 248:L=191:U=139:L%=119:U%=155
404 GOSUB 414:GOSUB 428:POKE V+40,2:POKE V+21,255
406 POKE 214,4:PRINT:POKE 211,16
408 PRINT WI$ CHR$(115) S$"ARIADNE"
410 POKE 214,10:PRINT:POKE 211,28
412 PRINT BR$"_ MINOTAUR":RR=1:GOTO334
414 POKE 2040,13:POKE S,0:POKE S+1,15:POKE S+2,0
416 POKE S+3,0:POKE S+4,15:POKE S+5,0
418 POKE S+6,0:POKE S+7,15:POKE S+8,0
420 POKE S+9,0:POKE S+10,15:POKE S+11,0
422 FOR I=S+12 TO S+62:POKE I,0:NEXT
424 POKE V+21,1:POKE V+39,1
426 POKE V,L%:POKE V+1,U%:RETURN
428 POKE 2041,14:POKE S%,0:POKE S%+1,31:POKE S%+2,0
430 POKE S%+3,0:POKE S%+4,31:POKE S%+5,0
432 POKE S%+6,0:POKE S%+7,31:POKE S%+8,0
434 POKE S%+9,0:POKE S%+10,31:POKE S%+11,0
436 POKE S%+12,0:POKE S%+13,31:POKE S%+14,0
438 FOR I=S%+15 TO S%+62:POKE I,0:NEXT
440 POKE V+2,L:POKE V+3,U:RETURN
442 DEF FN TM(X)=INT(TI/3600)
444 DEF FN TS(X)=INT(TI/60)-60*FN TM(X)
446 L%=0:U%=0:K=0:W%=0:K$=""
448 V=53248:M=54272:S=832:S%=896:Z=1150:ZZ=1024
450 D$=CHR$(17):U$=CHR$(145):L$=CHR$(157):R$=CHR$(29):S$=CHR$(32)
452 CL$=CHR$(147):BL$=CHR$(154):WI$=CHR$(5):BR$=CHR$(149)
454 BA$=CHR$(144):GR$=CHR$(151):HO$=CHR$(19)
456 M$(1)="HAMPTON COURT"
458 M$(2)="MATHEMATICAL MAZE"
460 M$(3)="TUILERIES"
462 M$(4)="HATFIELD HOUSE"
464 M$(5)="KNOSSOS":W$="WALL HITS:"
466 CO$=BR$+CL$:T$=WI$+"TIME:"
468 RT$="PRESS"+S$+CHR$(18)+"<RETURN>"+CHR$(146)+S$
470 FOR I=1 TO 5:SS$=SS$+S$:NEXT:RETURN
472 DATA 7,S,8,V,12,V,15,S,16,V,22,S,0
474 DATA 8,V,9,V,14,S,15,V,16,L,21,S,0
476 DATA 9,L,11,S,12,V,15,L,17,S,20,S,0
478 DATA 5,S,6,V,12,L,16,S,17,V,18,V,0
480 DATA 2,L,3,S,16,V,21,H,0
482 DATA 1,L,2,S,11,83,16,V,22,H,0,2,H,16,V,22,S,0
484 DATA 3,S,6,V,7,L,12,S,16,V,17,V,18,V,0
486 DATA 5,V,6,L,7,S,8,V,12,V,13,V,17,V,18,V,19,L,20,H,0
488 DATA 3,L,5,L,7,V,8,V,12,V,13,L,19,L,21,H,0
490 DATA 2,L,8,L,12,L,22,H,0,1,L,12,S,0
492 DATA 6,S,17,S,21,L,22,S,23,V,0
494 DATA 2,V,7,V,16,S,17,L,21,S,22,V,0
496 DATA 2,V,3,V,8,V,15,S,16,L,20,S,21,V,22,L,23,S,0
498 DATA 5,S,7,S,14,S,17,S,19,H,20,H,23,S,0
500 DATA 1,S,11,H,12,S,14,H,19,L,20,S,21,H,22,H,0
502 DATA 2,H,5,L,7,L,10,H,11,S,13,L,14,S,18,L,19,S,20,L,21,S,0
504 DATA 3,H,6,H,7,H,8,H,9,L,10,S,14,H,15,L,16,H,17,L,18,S,20,S,23,H,0
506 DATA 5,L,9,S,10,L,12,V,13,L,17,S,22,L,23,S,0
508 DATA 4,S,6,S,8,S,9,L,10,H,11,S,12,L,13,H,14,H,15,H,16,S,22,H,0
510 DATA 2,S,4,L,5,H,8,L,9,S,11,S,13,S,15,S,18,L,19,H,0
512 DATA 3,L,4,S,6,H,7,L,8,S,10,211,11,H
513 DATA 12,L,13,L,14,L,16,L,17,H,18,H,19,H
514 DATA 20,S,0,3,S,5,L,6,H,7,H,8,H,10,S
515 DATA 12,S,14,S,15,L,16,S,18,H,19,H,20,H,0
516 DATA 2,V,3,L,5,V,8,S,10,L,12,L,14,V,15,V,17,V,18,V,21,S,22,V,23,V,0
518 DATA 2,L,6,H,7,S,8,V,13,S,14,V,15,L,16,S,17,V,18,V,19,L,20,S,21,V,22,V
520 DATA 23,V,0,7,L,10,L,12,S,13,V,14,L,17,V,18,V,19,L,20,S,21,L,23,V,0
522 DATA 1,L,13,L,18,L,0,8,S,9,V,0,9,L,0,0,8,S,9,V,0
524 DATA 9,L,11,L,12,H,15,L,16,H,0
526 DATA 2,L,3,H,5,L,6,H,10,L,11,H,12,H,13,H,14,L,15,H,16,H,17,S,0
528 DATA 3,S,6,S,8,211,10,H,11,H,12,S,14,H,15,H,16,S,0
530 DATA 11,S,15,S,0,4,S,0,8,S,9,V,0,9,L,0,0,8,S,9,V,0,9,L,0
532 DATA 16,S,17,L,23,S,0,5,S,15,S,16,L,22,S,0
534 DATA 8,S,10,H,11,H,12,S,13,H,14,S,15,L,21,S,0
536 DATA 9,L,10,H,11,H,19,S,20,S,0
538 DATA 3,H,4,H,8,L,9,H,10,H,11,S,14,H,15,H,16,S,17,S,0
540 DATA 4,S,10,H,11,H,13,L,14,H,15,S,0
542 DATA 2,L,3,H,0,1,L,2,H,3,S,12,83,23,H,0
544 DATA 1,S,2,H,19,H,22,L,23,H,24,S,0
546 DATA 2,S,8,L,9,H,10,L,11,H,12,S,13,H,14,H,20,H,23,S,0
548 DATA 12,V,13,V,14,S,17,L,21,H,0
550 DATA 6,L,9,S,12,V,13,V,14,L,21,V,0
552 DATA 5,L,13,V,14,L,0,2,L,9,S,13,V,14,V,15,S,0
554 DATA 2,H,3,S,4,L,5,L,14,V,15,L,22,L,0,1,L,2,H,3,L,0
556 DATA 8,S,16,H,17,S,0,7,S,8,V,10,V,15,H,16,S,0
558 DATA 8,V,10,L,14,H,15,S,0,9,L,13,H,14,S,0
560 DATA 8,S,12,H,13,S,0,7,S,8,V,10,V,11,H,12,S,0
562 DATA 7,H,8,V,10,L,11,S,0,10,S,0
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8
60100 POKE53280, 2:POKE53281, 1:PRINT"[147][142]";
60101 PRINT"LOADSTARPRESENTS:"
60102 PRINT"[160]"
60103 PRINT"[155][176][178]``[178]```[178]``````[178]`````[178]``````[178][174]"
60104 PRINT"}}}[144][178][155]}[144][178][176][178][174][176]`[174][176][178][174][176]`[174][176]`[174][176][178][174][176]`[174][155]}}}"
60105 PRINT"}}}[144][171]`[179][155]`[144]}[155]`[144][173]`[174][155][176][144]}[155][176][144]}}[171][178][189]}}[155][171]`[179]}}"
60106 PRINT"[171]`[177][144][177][155]}[144][177][173][177][189][173]`[189][155][189][144][177][155][173][144][173]`[189][177][173][189][173][177][189][173]`[189][155][171]`}"
60107 PRINT"}[176]``{``[144][176][178][174][176]`[174][176]`[174][176]`[174][176]`[174][155][171]````[189]}}"
60108 PRINT"}[171]`[189][171]`[174][144]}}}[171]`[179]n[171][179][173]`[174][155]}```[178]`[179]}"
60109 PRINT"}}[171]```[179][144][177][177][177][155]}[144][177][173]`[189][173]`[189][173]`[189][155][171]``[174]}`[189]}"
60110 PRINT"[173]`[177]`````[177]``[177]``[177]`````[177]````[177][177]``[189]"
60111 PRINT"[144]BY:GERHARDSCHILLING"
60112 PRINT"[160][152][160][144]COPYRIGHT1988"
60113 PRINT"[152][160]"
60114 PRINT"PRESSSPACETOCONTINUE"
60115 IFPEEK(203)<>60THEN60115
60116 RETURN